home *** CD-ROM | disk | FTP | other *** search
/ IRIX Installation Tools & Overlays 2002 November / SGI IRIX Installation Tools & Overlays 2002 November - Disc 4.iso / dist / cluster_admin.idb / var / cluster / ha / diags / validate_restypes.pl.z / validate_restypes.pl
Perl Script  |  2002-10-15  |  2KB  |  46 lines
  1. #!/usr/sbin/perl
  2. #                                                                         
  3. #  Copyright (C) 1998, Silicon Graphics, Inc.                             
  4. #  All Rights Reserved.                                                   
  5. #                                                                         
  6. #  UNPUBLISHED -- Rights reserved under the copyright laws of the United  
  7. #  States.  Use of a copyright notice is precautionary only and does not  
  8. #  imply publication or disclosure.                                       
  9. #                                                                         
  10. #  THIS SOFTWARE CONTAINS CONFIDENTIAL AND PROPRIETARY INFORMATION OF     
  11. #  SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION, DISTRIBUTION, OR 
  12. #  DISCLOSURE IS STRICTLY PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN    
  13. #  PERMISSION OF SILICON GRAPHICS, INC.                                   
  14. #                                                                         
  15. #  U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND                               
  16. #  Use, duplication or disclosure by the Government is subject to         
  17. #  restrictions as set forth in FAR 52.227.19(c)(2) or subparagraph       
  18. #  (c)(1)(ii) of the Rights in Technical Data and Computer Software       
  19. #  clause at DFARS 252.227-7013 and/or in similar or successor clauses    
  20. #  in the FAR, or the DOD or NASA FAR Supplement.  Unpublished-- rights   
  21. #  reserved under the copyright laws of the United States.                
  22. #  Contractor/manufacturer is Silicon Graphics, Inc.,                     
  23. #  2011 N. Shoreline Blvd., Mountain View, CA 94039-7311.                 
  24. #
  25.  
  26. require "$LibDiagsPath/recurse.pl";
  27.  
  28. sub ResourceTypesExists {
  29.     local ($machine_name) = @_;
  30.     local ($who);
  31.     local ($Flag) = 0;
  32.  
  33.     $who = "#cluster#$Cluster#HA#ResourceGroups#$ResourceGroup";
  34.     &get_tree($machine_name, $who);
  35.     
  36.     for ($i= 0; $i <= $No_of_children{$who}; $i++) {
  37.     if ($child{$who, $i} eq ResourceTypes) {
  38.         if ($value_me{$who, $child{$who, $i}, $i} eq '<tree>') {
  39.         print "res types: $value_me{$who, $child{$who, $i}, $i}\n";
  40.         $Flag = 1;
  41.         }
  42.     }
  43.     }
  44.     return ($Flag);
  45. }
  46.